﻿Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim lg As New ucDSNhasanxuat()
        Me.Controls.Add(lg)
        lg.Dock = DockStyle.Fill
    End Sub

    Private Sub ButtonX1_Click(sender As Object, e As EventArgs)
        'Dim bolAuthentication As Boolean
        'Dim bolChangpw As Boolean

        'Dim userbus As New UserBUS()
        'Dim ds As New DataSet
        'ds.Tables.Add(userbus.GetUserByUserName("spTDT_GetUser", Trim(TextBoxX1.Text)))

        'If ds.Tables(0).Rows.Count > 0 Then
        '    With ds.Tables(0).Rows(0)
        '        If Trim(TextBoxX2.Text) = StringDecode(.Item("Password")) Then
        '            If .Item("StatusFlag") = True Then
        '                bolAuthentication = True

        '                If .Item("PrivilegeName") = "Administrator" Then
        '                    objUser.Administrator = True
        '                Else
        '                    objUser.Administrator = False
        '                End If
        '                objUser.UserFullName = .Item("FullName")
        '                objUser.UserAccountID = .Item("UserAccountID")
        '                objUser.UserName = Trim(TextBoxX1.Text)
        '                objUser.Privilege = .Item("PrivilegeID")
        '                objUser.NonFlag = .Item("NoneFlag")
        '                objUser.ReadonlyFlag = .Item("ReadOnlyFlag")
        '                objUser.FullFlag = .Item("FullFlag")
        '                objUser.CashBookFlag = .Item("CashBookFlag")

        '                Me.Close()
        '                If .Item("PasswordChgAtLogonFlag") = True Then
        '                    bolChangpw = True
        '                End If

        '                SetKeyUserName_Department(TextBoxX1.Text, 0)

        '                If cboDepartment.SelectedIndex = 0 Then
        '                    eDepartment = basQuanlybanhang.Department.Sales
        '                Else
        '                    eDepartment = basQuanlybanhang.Department.Financial
        '                End If
        '                Dim dateExport As Date

        '                Select Case eDateTimeFormatType
        '                    Case basQuanlybanhang.DateTimeFormatType.DMY
        '                        dateExport = Format(DateAdd(DateInterval.Year, -1, Now), "dd/MM/yyyy")
        '                    Case basQuanlybanhang.DateTimeFormatType.MDY
        '                        dateExport = Format(DateAdd(DateInterval.Year, -1, Now), "MM/dd/yyyy")
        '                    Case basQuanlybanhang.DateTimeFormatType.YDM
        '                        dateExport = Format(DateAdd(DateInterval.Year, -1, Now), "yyyy/dd/MM")
        '                    Case basQuanlybanhang.DateTimeFormatType.YMD
        '                        dateExport = Format(DateAdd(DateInterval.Year, -1, Now), "yyyy/MM/dd")
        '                End Select

        '                With myCommand
        '                    .Connection = cnnDB
        '                    .CommandType = CommandType.StoredProcedure
        '                    .CommandText = "spTDT_ExportItems_Delete_Forever"
        '                    .Parameters.Clear()
        '                    .Parameters.Add("@ExportDate", OleDbType.Date).Value = dateExport
        '                    .ExecuteNonQuery()
        '                End With
        '                With myCommand
        '                    .Parameters.Clear()
        '                    .CommandType = CommandType.StoredProcedure
        '                    .CommandText = "spTDT_Items_RefreshQuantity"
        '                    .ExecuteNonQuery()
        '                End With
        '            ElseIf .Item("StatusFlag") = False Then
        '                bolAuthentication = False
        '                MsgBox("Tài khoản của bạn đã bị khóa. Xin vui lòng thông báo với Người quản trị để bạn có thể đăng nhập lại", MsgBoxStyle.Critical, "Tài khoản")
        '            End If
        '        Else
        '            bolAuthentication = False
        '            MsgBox("Tên truy cập hoặc mật khẩu không hợp lệ", MsgBoxStyle.Critical, "Lỗi đăng nhập")
        '        End If
        '    End With
        'Else
        '    bolAuthentication = False
        '    MsgBox("Tên truy cập hoặc mật khẩu không hợp lệ", MsgBoxStyle.Critical, "Lỗi đăng nhập")
        'End If

    End Sub
End Class